function plotutil(dir,exp,run,block,fileroot,actions)
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here
alldata=load(strcat(dir,'\',fileroot,'.strat.results'));
num=length(alldata);
%block=40;

for i=1:num
    if (alldata(i,1)==exp && alldata(i,2)==run && alldata(i,3)==block)
        numstratpieces=alldata(i,5)
        x = zeros(numstratpieces*2,1);
        y = zeros(numstratpieces*2,1);
        for j=1:numstratpieces
            index = i+j-1;
            x(j*2-1) = alldata(index,6);
            y(j*2-1) = alldata(index,8);
            x(j*2) = alldata(index,7);
            y(j*2) = alldata(index,9);
        end;
        break;
    end;
end;



clf
lw=3;
fs=24;

plot(x,y(:,1),'--kd','LineWidth', lw);

%[x y(:,1)]

hold on;
xlabel('type', 'FontSize', fs);
%ylabel('utility', 'FontSize',fs);
%ylabel('bid', 'FontSize', fs);
%set(gca,'FontSize',fs);
set(gca,'FontSize',fs);
%set(gca,'YTick',[0,1,2,3,4]);
%set(gca,'YTickLabel',{'0','0.25','0.5','0.75','1.0'});
xlim([0,1])
ylim([0,1])

for j=1:numstratpieces
    text(x(j*2-1)/2+x(j*2)/2-0.1,y(j*2-1)/2+y(j*2)/2+0.1,actions(j),'FontSize',fs);
end

name = strcat('./util',fileroot,'_',int2str(exp));
print('-depsc',strcat(name, '.eps'));
hold off;
%print('-dpdf',strcat(name, '.pdf'));

end

